home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / geodem / cstart5.frm < prev    next >
Encoding:
Text File  |  1995-05-08  |  2.7 KB  |  109 lines
  1. VERSION 2.00
  2. Begin Form Startup 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    ClientHeight    =   1950
  6.    ClientLeft      =   1065
  7.    ClientTop       =   1485
  8.    ClientWidth     =   4470
  9.    ControlBox      =   0   'False
  10.    Height          =   2355
  11.    Left            =   1005
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   1950
  17.    ScaleWidth      =   4470
  18.    Top             =   1140
  19.    Width           =   4590
  20.    Begin PictureBox StartPic 
  21.       BackColor       =   &H00808080&
  22.       BorderStyle     =   0  'None
  23.       Height          =   1695
  24.       Left            =   120
  25.       ScaleHeight     =   1695
  26.       ScaleWidth      =   4215
  27.       TabIndex        =   0
  28.       Top             =   120
  29.       Width           =   4215
  30.    End
  31.    Begin Timer Timer1 
  32.       Interval        =   10000
  33.       Left            =   0
  34.       Top             =   0
  35.    End
  36. End
  37. '3D CyberSpace viewer from...
  38.  
  39. 'Ivory Tower Software
  40. 'Richard Wagner, vice president, development
  41. 'CIS 76427,2611
  42.  
  43. 'Copyright 1992, all rights reserved.
  44.  
  45. 'You may use this VB source code in your programs if you include attribution in your
  46. 'startup and "about" screens in the form: "Portions of this program copyright by
  47. 'Ivory Tower Software, used with permission," or a similar phrase.
  48.  
  49. 'If you do use this code in your application, please let us know. We would like to
  50. 'take a look at it. Your comments and suggestions for improving this software are
  51. 'welcome.
  52.  
  53.  
  54. Sub DrawWords ()
  55.  
  56.   BorderBoxRaised StartPic, StartUp
  57.   Line1$ = "CyberSpace Cruiser"
  58.   Line2$ = "Demo version 1.09 from..."
  59.   Line3$ = "Ivory Tower Software"
  60.  
  61.   StartPic.FontSize = 12
  62.   StartPic.forecolor = QBColor(11)
  63.   StartPic.currentY = 120
  64.   StartPic.currentx = (StartPic.scalewidth - StartPic.TextWidth(Line1$)) / 2
  65.   StartPic.Print Line1$
  66.   
  67.   StartPic.FontSize = 8.25
  68.   StartPic.fontbold = 0
  69.   StartPic.forecolor = QBColor(0)
  70.   StartPic.currentY = StartPic.scaleHeight / 2 - 60
  71.   StartPic.currentx = (StartPic.scalewidth - StartPic.TextWidth(Line2$)) / 2
  72.   StartPic.Print Line2$
  73.   StartPic.fontbold = -1
  74.  
  75.   StartPic.FontSize = 18
  76.   StartPic.forecolor = QBColor(15)
  77.   StartPic.currentY = StartPic.scaleHeight - StartPic.TextHeight(Line3$) - 120
  78.   StartPic.currentx = (StartPic.scalewidth - StartPic.TextWidth(Line3$)) / 2
  79.   StartPic.Print Line3$
  80.  
  81. End Sub
  82.  
  83. Sub Form_Load ()
  84.  
  85.   top = (screen.height - height) / 2
  86.   left = (screen.width - width) / 2
  87.  
  88. End Sub
  89.  
  90. Sub Form_Paint ()
  91.  
  92.   DrawWords
  93.  
  94. End Sub
  95.  
  96. Sub Form_Resize ()
  97.  
  98.   DrawWords
  99.   XView.Show
  100.  
  101. End Sub
  102.  
  103. Sub Timer1_Timer ()
  104.  
  105.   Unload StartUp
  106.  
  107. End Sub
  108.  
  109.